Option Explicit
Sub A_Sample051()
    Dim mySht As Worksheet
    Dim myWb  As Workbook
    Set myWb = Workbooks(1)
    'ǳƨ즹
    With myWb.Worksheets
        Set mySht = .Item(.Count)
    End With
    MsgBox mySht.Name
    Set mySht = Nothing		'
    Set myWb = Nothing
End Sub
